|
<%
'-------------- ID kategori berita ---------------------
' 1 = Jakarta
' 2 = Pemerintahan
' 3 = Layanan
' 4 = Info Terkini
' 5 = Dynamic
'-------------------------------------------------------
strIDBerita = Request.querystring("idb")
sql11="SELECT tgl_berita,judul_berita,isi_berita,foto_berita FROM berita " _
& "WHERE published=1 AND id_berita="& strIDBerita
'on error resume next
set rs11=my_conn.execute(sql11)
if rs11.bof and rs11.eof then
response.write "Berita tidak dapat diturunkan!
"
response.write sql
else
'Hasil = rs11.getstring(,,";","","")
'ArrHasil = split(Hasil,";")
'response.write hasil
response.write ""&FormatTanggal(rs11("tgl_berita"))&"
"
response.write ""&rs11("Judul_berita")&""
if trim(rs11("foto_berita"))="" OR len(trim(rs11("foto_berita")))=0 OR IsEmpty(rs11("foto_berita")) OR IsNull(rs11("foto_berita")) then
else %>
 " align=left width=180 height=125>
<% end if
'response.write ""&rs11("isi_berita")&""
response.write ""
NewsArray = Split(rs11("isi_berita"), chr(13))
For I = 0 to uBound(NewsArray)
Response.Write NewsArray(I) & ""
Next
response.write " "
response.write " | "
response.write " | "
'response.write "Berita lainnya » | "
end if
'end if
rs11.close
set rs11=nothing
%>
|
|
| |
|
<%
dim hasilInstansi
'sql="select ID_instansi,nama_instansi from instansi where id_tipe_instansi=2 and published=1"
sql="SELECT top 6 id_berita,judul_berita,tgl_berita FROM berita WHERE published=1 and id_kat_berita <> 5 ORDER BY tgl_berita DESC"
set rs=my_conn.execute(sql)
hasilInstansi=rs.getrows
jbaris=ubound(hasilInstansi,2)
rs.close
set rs=nothing
%>
|
<%
for i = 0 to jbaris %>
 |
|
<% next %>
|
|
| |
|
|
|
